home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / util / boot / autoexec.lha / AutoExec.bat / src / autoexec.bat.e
Text File  |  1999-02-16  |  391b  |  24 lines
  1. -> tHe nEw StArTUP-sEqUeNcE ... by bLa$TeR_oNe
  2.  
  3. PROC main()
  4.   DEF t=0
  5.  
  6.     t:=Mouse()
  7.  
  8.     IF (t=0) THEN exec('execute s:startup-big')
  9.     IF (t=1) THEN exec('execute s:startup-small')
  10.  
  11. ENDPROC
  12.  
  13. PROC exec(arg)
  14.  
  15.   Execute(arg,0,stdout)
  16.  
  17. ENDPROC
  18.  
  19. CHAR '$VER:AutoExec.Bat by bLa$Ter_oNe!  1.0  (17/02/1999)',0
  20.  
  21. -> As Einstein said: 
  22. -> "Make everything as simple as possible, but no simpler!"
  23.  
  24.